home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1148 < prev    next >
Encoding:
Text File  |  1994-01-25  |  652 b   |  41 lines
  1. supdict begin
  2. /getwidth 
  3. { xsize ysize ge
  4. { xsize } { ysize } ifelse .05 mul } def
  5. /brickloop 
  6. { ystart ysize ystart abs 
  7. { /ycur xdf 
  8. xstart ycur m 
  9.  xstart abs ycur L stroke
  10.  xstart xsize xstart abs  
  11.  { cnt 1 and 0 eq  
  12. { /xcur xdf } 
  13. { /xcur exch xsize .5 mul add def } ifelse
  14. xcur ycur m
  15. xcur ycur ysize add L stroke 
  16.  } for
  17.  incrcnt
  18. } for } def
  19. end 
  20. /bricks 
  21. {
  22.  supdict begin  
  23.  q newinside 
  24.  /color xdf
  25.  colorchoice 
  26.  /color xdf 
  27.  /angle xdf 
  28.  /ysize xdf 
  29.  /xsize xdf
  30.  /xstart x1 x2 add 2 div neg def 
  31.  /ystart y1 y2 add 2 div neg def 
  32.  
  33.  dx 2 div dy 2 div translate
  34.  angle rotate
  35.  backgnd 
  36.  colorchoice 
  37.  getwidth w
  38.  brickloop  
  39.  Q end 
  40. } def